Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/prog_d/rtdc.zip/TESTUNI1.DFM/TESTUNI1.txt

Text File | 1995-12-11 | 3KB | 154 lines

object Form1: TForm1
  Left = 146
  Top = 171
  AutoScroll = False
  Caption = 'RtDbCopy'
  ClientHeight = 265
  ClientWidth = 598
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  TextHeight = 16
  object Gauge1: TGauge
    Left = 0
    Top = 245
    Width = 598
    Height = 20
    Align = alBottom
    Progress = 0
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 41
    Width = 598
    Height = 204
    Align = alClient
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Color = clBlack
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 598
    Height = 41
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 43
      Height = 16
      Caption = 'Source'
    end
    object Label2: TLabel
      Left = 200
      Top = 8
      Width = 67
      Height = 16
      Caption = 'Destination'
    end
    object ComboBox1: TComboBox
      Left = 56
      Top = 8
      Width = 129
      Height = 24
      ItemHeight = 16
      TabOrder = 0
      OnExit = ComboBox1Exit
    end
    object Edit1: TEdit
      Left = 272
      Top = 8
      Width = 97
      Height = 24
      TabOrder = 1
    end
    object BitBtn1: TBitBtn
      Left = 384
      Top = 8
      Width = 89
      Height = 25
      Caption = 'Start'
      TabOrder = 2
      OnClick = BitBtn1Click
      Kind = bkOK
      Style = bsNew
    end
    object BitBtn2: TBitBtn
      Left = 488
      Top = 8
      Width = 89
      Height = 25
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = BitBtn2Click
      Kind = bkClose
      Style = bsNew
    end
  end
  object StringGrid1: TStringGrid
    Left = 0
    Top = 41
    Width = 598
    Height = 204
    Align = alClient
    ColCount = 4
    DefaultColWidth = 150
    FixedCols = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goTabs]
    TabOrder = 2
    RowHeights = (
      24
      24
      24
      24
      24)
  end
  object Database1: TDatabase
    DatabaseName = 'TEST'
    LoginPrompt = False
    Left = 8
    Top = 200
  end
  object Table1: TTable
    DatabaseName = 'TEST'
    Left = 40
    Top = 200
  end
  object Table2: TTable
    DatabaseName = 'TEST'
    Left = 72
    Top = 200
  end
  object DataSource1: TDataSource
    DataSet = Table2
    Left = 136
    Top = 200
  end
  object RtDbCopy1: TRtDbCopy
    Destination = Table2
    Mode = batCopy
    Source = Table1
    Transaction = False
    OnError = RtDbCopy1Error
    OnField = RtDbCopy1Field
    OnRecord = RtDbCopy1Copy
    Left = 104
    Top = 200
  end
end